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DISCLAIMER 



Although each program has been tested by its contributor, 

no warranty, express or implied, is made by the contributor 

or any User's Group, as to the accuracy and functioning. of 

the program and related program material, nor shall the fact 

of distribution constitute any such warranty, and no responsibility 

is assumed by the contributor or any User's Group, in connection 

therewith. 
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COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 

Program No. Date 

Program Name: . 

1. Does the abstract adequately describe what the program is and what Ye s No_ 
it does ? 
Comment 



2. Does the program do what the abstract says? Yes No_ 

Comment 

3. Is the description clear, understandable, and adequate? Yes_ No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

C om m ent 

Are the Sense Switch options, adequately described (.if applicable) ? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable ? Yes No_ 

Comment__ 

5. Does the source program compile satisfactorily (if applicable)? Yes No_ 

Comment 



6. Does the object program run satisfactorily? Yes_ 
Comment 



No 



7. Number of test cases run . Are any restrictions as to data, 

size, rangel, etc. covered adequately in description? Yes No 

Comment ' ; 

8. Does the Program meet the minimal standards of COMMON? Yes No_ 

Comment \ . 

9. Were all necessary parts of the program received? Yes No 

Comment . 

10. Please list on the back any suggestions to improve' the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 

IBM Corporation Company . ; 

Program Information Department ; ■. 

40 Saw Mill River Road Address ^ 



Hawthorne, New York 10532 - 
Attn: PREP FORM COORDINATOR Users Group Code 



©_ THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW ANI 
EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVALUATION. 
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Los Angeles County 
Department of County Engineer 
Library Program No. 11-5 



INVERSE GEODETIC POSITION COMPUTATION 
for the 

IBM 1620 DATA PROCESSING SYSTEM 



May 1962 



John F. McMillan 
Survey Division 
Geodetic Section 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 
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Titles Inverse Geodetic Position Computation 

Department of County Engineer Library Program 
No. 11-5 

Description; A program for accurately determining the forward 
azimuth, back azimuth, delta alpha and geodetic 
distance (in Meters and Feet) between two survey 
control stations, knowing the latitude and longi- 
tude of each station. 



Equipment: IBM 1620 Data Processing System with 20 K storage 
and the following special attachments: 



a. Automatic Divide 



b. Transfer Numerical Strip 

c. Transfer Numerical Fill 



d. Move Flag 

Abstract: This program was prepared using the IBM 1620 
SPS Variable Length Processor and Subroutines 
dated January 1, 1962. This was accomplished 
using a 15 digit mantissa and a 2 digit char- 
acteristic. When several geodetic inverses are 
to be calculated out of one station, only one 
input card is necessary for the "home" station. 
The processing of data out of this "home" station 
is terminated by a "999" input card. 

The development of this program was accomplished 
using the theory and formulas listed on Pages 9 
thru 11 of Special Publication No. 200 entitled 
"Formulas and Tables for the Computation of 
Geodetic Positions on the International Ellipsoid" 
as published by the U. S. Coast and Geodetic 
Survey. Considering the accuracy capabilities of 
the IBM 1620, using the variable length sub- 
routines, the program was written using the actual 
radian arc measure of the small angles involved. 
This modification has resulted in the elimination 
of all arc sine corrections. 

The program has a length limitation of about 75 
miles. There is no limitation regarding lati- 
tudes and longitudes acceptable to the program. 
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The time required to calculate and type one (1) 
inverse is 35.3 seconds. With slight modifi- 
cation the program can be prepared for card 
output. It is felt that the time consumed in 
typing the output is so slight compared to the 
actual calculation time that card output to save 
time is not warranted. 

Acknowledgement is given to Mr. I. H. Alexander 
and Mr. C. R. Goss of the Survey Division for 
their technical advice and assistance in the 
preparation of this program. 

Author: John F. McMillan 

Los Angeles County 
Department of County Engineer 
108 West Second Street 
Los Angeles 12, California 
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Input - General Description 



The input data for a geodetic inverse consists of 
the latitude and longitude of the two stations under 
consideration. 

One input card per station is used. 

The station name or other designation may occupy the 
first eighteen (18) card columns. This information 
can be both alphabetic and numeric. 

The latitude occupies columns 19 thru 29, inclusive. 
The longitude occupies columns 30 thru !+0, inclusive. 

For examples of input see pages lh and 15 of this report. 
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Output - General Descriptions 



The following data will be typed out: 

Forward Azimuth as 
XXX°-XX'-XX.XXXX" 

Back Azimuth as 
XXX°-XX f -XX.XXXX" 

Delta Alpha as 
XX'-XX.XXXX" 

Distance in Meters as 
XXXXXX.XXXXX 

Distance in Feet as 
XXXXXX.XXXXX 

No rounding off has been incorporated in this program. 
However, all output values are expressed in sufficient 
length to correctly interpret the data to noriral requir 
merits . 
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FORW-0 AZIMJTH BACK AZIMUTH DELTA ALPHA Om(METERS) DIST(FEET) 
ECHO ROCK TO SAN JUAN 

319-37-37.2155 139-48-16.2475 10-39.0319 045239.04735 148421 .77454 
ECHO ROCK TO PAS EAST BASE NO. 2 

238-4 J-25.3S 21 109-00-45.9263 12-20.5741 035693.74064 117105.21409 
BLACKWOOD TO SHAY 

254-23-16.2037 074-24-49.9156 01-33.7119 004444.00934 014580.05399 
BLACKWOOD TO SAN JOSE 

002-15-17.8775 182-15-11.6963 -00-06.1811 007188.32444 023583. 694^3 
PUENTE TO WORKMAN HILL 

060-21-10.3802 240-18-52.7849 -02-17.5953 007265.05847 023835.44600 
WORKMAN HILL TO ECHO ROCK 

169-23-56.3847 349-27-11.1773 -01-45.2074 026307.16271 086309.41632 
AZUSA D-11 TO DUARTE 

189-19-30.7334 009-19-44.1595 00-13.3760 003769.21936 012366.18052 
SAN JUAN TO WORKMAN HILL 

109-31-57.5399 289-23-05.2697 -08-52.3201 025955.73160 085156.42943 
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Operating Instructions 



1. Load the program deck onto the 1622 Card Read- 
Punch Unit. 

2. Clear Memory 

a. Parity and I/O switches to Program 

b. Reset; Insert 

c. Type 31 00009 00008 

d. Release; Start 

e. Instant stop (after 1 cycle of MAR) 

f. Reset 

3. Set all switches to OFF 
h. Load Program into Memory 

5. Load Data 

a. If using compressed deck, column headings will 
start typing out immediately after deck is loaded. 

b. If using regular object program deck; after 
loading, push start on console to begin column 
heading type-outs. 

6. All inversing out of a certain station must terminate 
with a 999 before a new home station will be properly 
placed in storage. 
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